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Guida per l'input dei 
VIC 20 e C64 

Notate che i listati contengono paro¬ 
le' racchiuse tra parentesi graffe / / 

Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto Se il sìmbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 


da l()l 

deve essere 

premuto 

(CLR) 

lutili Ifl-HiMAU 

G 

{CYN ì 

(HOME) 


B 

(PUR) 

fsu} » 

rrm iibìmjii 

n 

(GRN ! 

{GIU* ) 

fil-ìl'.lll 

CD 

(BLU) 

{SIN} 


li 

(YEL) 

(DESI 


a 

I<1>1 

(RVS) 

GEI O 

s 

l<2>] 

(OFF) 

m □ 

■ 

( < 3 > ] 

t BLK ) 

Giao 

■ 

I < 4 >] 

{WHT} 

(4L3 Q 

m 

[<5>] 

(RED) 

I4Ctl Q 

e 

«6>| 


programmi versioni 


temporaneamente al tasto COMMO¬ 
DORE Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico so¬ 
litario" questo aovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sara 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori 


■iLW Q 


[<7>j 

□ a 

□ 

COSO 

1 

I < 8 > J 

no 

■ ■ 
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n 

{FI} 
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CESO 

B 
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Si 

{F3} 
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□ 

{F4} 
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iè 

QD 

15 
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OD 

n 

OD 

8 

{F6} 
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SI 
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0 
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m 
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QO 

E 
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Stop Bug 

Se non l'hai sia fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 


parola: “:rem"seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell’angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
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fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)*256 :PRINT"{CLRÌ 
ATTENDERE PREGO..." 

110 FORI=RTOR+132 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVSjSTOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA251 ,1 34', 252,1 32,253,8,201 , 1 3,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,2 54,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,2 55 
300 DATAI 69,5 8,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 
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A 

e* 

jj Stuntman 


Da un aereo in volo a bassa quota 
devi lanciare alcuni stuntman su un 
grande telone, cercando di farli at¬ 
terrare su un bersaglio posto al 
centro di esso. Nell'effettuare i lan¬ 
ci devi tener conto della velocità 
del vento, che soffia in senso con¬ 
trario alla direzione dell’aereo. Hai 
a disposizione tre stuntman,- ognu¬ 
no di essi può proseguire i lanci 


finché non cade tre volte fuori dal 
telone. Perdi un uomo anche se lo 
fai atterrare fuori dallo schermo 
oppure se lo fai cadere tra i pali 
della luce: nel primo caso lo stun¬ 
tman finisce nella vicina palude, 
nel secondo resta fulminato. Usa la 
barra spaziatrice per sganciare gli 
uomini. 


10 REM STUNTMAN :rem 191 

20 V=53248:POKE2040,1 92:POKE2041 ,1 93 :POKEV+39,7 :POKEV+40, 
10 :rem 127 

30 POKEV+16,0:POKEV+21,0 :FORI = l 2288T012350 :READQ:POKEI,Q: 


NEXT : rem 24 

40 FORI = 12352TO12373STEP3:READQ:POKEI,Q:POKEI + l,0:POKEI+2 



, 0 :NEXT 

: rem 

4 

50 

FORI = 1 2 376T012414 :POKEI,0 :NEXT 

: rem 

251 

60 

POKEV+2,185:POKEV+3,170 

: rem 

243 

70 

FORI = 491 52T049230 :READQ:POKEI, Q:NEXT 

: rem 

205 

80 

NM=3:SC=100 

: rem 

1 7 

90 

PRINT"{CLR}";:POKE53281 ,1 1 :POKE53280,1 1 

: rem 

251 

1 00 

IFNM=0THEN760 

: rem 

244 

1 10 

PRINT"{BLU}{ 11 SPAZI}{RVS}£{ 3 SPAZI}[<*>] 

{OFF} 



{ 34 SPAZI}{RVS}£{ 5 SPAZI}[<*>]{OFF}"; 

: rem 

21 


120 PRINTSPC(22);"{RVS}£{OFF}{ 8 SPAZI}{RVS}£{ 8 SPAZI} 

[<*>] {OFF}{ 19 SPAZI}{RVS}£{ 2 SPAZl}{OFF}{ 3 SPAZI} 
{RVS}£[<*>]{OFF}{ 2 SPAZI}TrvS}£"; :rem 34 

130 PRINT"{ 10 SPAZI}[<*>]{OFF}{ 17 SPAZI}{RVS}£ 

{ 3 SPAZI}{OFF} {RVS}£{ 3 SPAZI}[<*>]£{ 12 SPAZI} 

[<*>]{OFF}{ 4 SPAZI}{RVS}£[<*>]"; :rem 172 

140 PRINT"{OFF}{ 2 SPAZI}{RVST£{ 2 SPAZI}[<*>]{OFF} 

{ 2 SPAZI}{RVS}£{ 5 SPAZI}£{ 19 SPAZI}[<*>]{OFF} 

{ 2 SPAZI}{RVS}£{ 2 SPAZI}[<*>]£{ 4 SPAZI}[<*>]£ 

{ 13 SPAZI}"; : rem 255 

150 PRINT"{ 68 SPAZI}"; :rem 162 

160 PRINT"{ 45 SPAZI}{OFF}"; :rem 53 

170 PRINT"{ 6 SPAZI}[<1 >] [<R>] { 5 SPAZl}{GRN}X 

{ 21 SPAZI}X" : rem 106 

180 PRINT"{ 5 SPAZI}[<1>][<R>]-":PRINT"{ 4 SPAZI}[<R>]- 

{ 30 SPAZI}{GRN}X" : rem 10 
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190 PRINT" { 3 SPAZI } [ < 1 > ] [ <R> ] : PRINT" { 2 SPAZI} [<R>] 

{ 2 -}{ 11 SPAZI}[<5>] [< 7 @>]" : rem 6 

200 PRINT" [<1 >] [<R>] { 2 -}{ 11 SPAZI}[<5>]N{CYN}{ 7 V} 

}<5>]M" :rem 148 

210 PRINT"[<1>] [<R>] { 3 -}{ 10 SPAZI}[<5>]N{CYN}{ 4 V} 

{PUR}V{CYN}{ 4 V}[<5>]M{ 4 SPAZI}[<1>]ttttt":rem 176 
220 PRINT"[<1>]{ 3 -}{ 10 SPAZI}[<5>]N{CYN}{ 11 V}[<5>]M 

{ 3 SPAZI} [ < 1 > ] -_t { 3 -}t" : rem 2^2 

230 PRINT"[<1>]{ 3 -}{ 9 SPAZI}[<5>]-[<E>]*[<E>][<R>] 

[<E>] M<E>] M<E>] [<R>] [<E>]M<E>]^{ 3 SPAZI } [<1 >]-t 
{ 2 SPAZI}-1" : rem 2 

240 PRINT" [ < 1 > ] { 2 -}{ 10 SPAZI } [<5>]- 1 { 3 SPAZl}- 

{ 5 SPAZI}..} 3 SPAZI}-} 4 SPAZI} [ < 1 > ] —_t T t T t " : rem 226 
250 PRINT"[<1>]} 2 -}{ 10 SPAZI}[<5>]-{ 13 SPAZl}- 

{ 5 SPAZI}[<1>]T 5 -}" : rem 199 

260 PRINT"[<1>]-{ 11 SPAZI} [<5>]--{ 13 SPAZI}-" :rem 25 

270 PRINT"} 40 *_}"; :rem 165 

280 PRINT: PRINT" }YEL} { 3 M>{HOME}"; :rem 156 

290 POKEV+16,1 :POKEV,80 :POKEV+1,80:POKEV+21,1 
40:F=0:T=0:NW=0 

300 VL=54296:W=54276:A=54277:H = 54273:L=54272 
310 SYS(491 52) : SYS(491 52) :SYS(491 52) 

320 IF(PEEK(V+16)ANDl)OlORPEEK(V)<89THEN340 


: rem 
: rem 
WS=5:GOSUB8 
: rem 155 
:rem 158 
:rem 7 
:rem 98 


330 

POKEV+1,INT(RND(1)*75+50):SC=SC-10:GOSUB840 

: rem 

242 

340 

IFF=1THEN410 

: rem 

1 58 

350 

K=PEEK ( 1 97) : IFK060THEN400 

: rem 

238 

360 

POKEV+2,PEEK(V):POKEV+3,PEEK(V+l):F=1:T=0:M$ 

="GERONIM 


00000!!!} 3 SPAZI}":G0SUB910 

: rem 

76 

370 

IF(PEEK(V+16)AND1)= OTHENPOKEV+16,0:GOTO 390 

: rem 

250 

380 

POKEV+16,PEEK(V+l6)OR2 

: rem 

1 5 

390 

POKEV+21 ,PEEK(V+21)OR2:YI = PEEK(V+l)+8 :XI=PEEK(V)+256* 


(PEEK(V+l6)AND1) 

:rem 

53 

400 

IFF=0THEN310 

: rem 

1 53 

410 

GOSUB480 

: rem 

1 77 

420 

IFX<20ORX>336THEN710 

: rem 

1 81 

430 

IFY<170THEN310 

: rem 

22 

440 

IFX>130ANDX< 2 20THENGOSUB560: GOTO310 

: rem 

1 57 

450 

IFX< 50THEN600 

: rem 

230 

460 

IFX> 25 5ANDX< 3 0 OTHENGOSUB6 30 : GOTO310 

: rem 

1 64 

470 

GOSUB670:GOTO310 

: rem 

191 

480 

XV=3:M=50 

: rem 

227 

490 

T=T+1:POKE54278,1 28:POKEVL,!5:POKEW,129:POKEA,l 5: 

POKE 


L,200 :POKEH,80-2*T 

: rem 

14 

500 

X=WS*T*T/M-XV*T+XI:Y=4.9*T*T/M+YI 

: rem 

33 

510 

X=INT(X):Y=INT(Y) 

: rem 

36 

520 

IFX>255THENPOKEV+l6,PEEK(V+l6)OR2:POKEV+2,X- 

256:G0T05 


40 

: rem 

1 1 3 

530 

POKEV+16,PEEK(V+l6)AND253:POKEV+2,X 

:rem 

70 

540 

POKEV+3,Y 

:rem 

1 

550 

RETURN 

: rem 

1 22 
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560 IFX>170ANDXC185THENSC = SC + 200:M$ = "SUPERBO ! ! ! ! 
{ 10 SPAZI}":GOTO580 

570 SC=SC+100:M$="BUON SALTO!!{ 7 SPAZI}" 

580 WS = INT(RND(1)*10) :GOSUB840:GOSUB910 :F = 0:T=0 
590 POKEW,0:POKEA,0:RETURN 

600 GOSUB880:PRINT"{CLR}{YEL}{ 10 SPAZI}STUNTMAN 
Oi! I":NM=NM-1 :POKEV+21,0 
610 FORTM=lT03000:NEXT:SC=SC-100 
620 GOTO90 

630 M$ = "NEL RECINTO I !{ 2 SPAZI}":GOSUB910 :SC=SC 


rem 

rem 

rem 

rem 


146 
230 
67 
1 60 
FULMINAT 
50 
205 
58 


: rem 
: rem 
: rem 
50 

: rem 


73 


640 WS=INT(RND(1)*10) :GOSUB840:GOSUB910 :F = 0:T=0:NW=NW+1 


650 

660 

670 

680 

690 

700 

710 


POKEW,0 : POREA,0 :IFNW> 2THEN800 
RETURN 

M$ = "PROVA ANCORA":GOSUB910 :SC=SC-30 :NW=NW+1 
WS = INT(RND(1)*10) :GOSUB840:GOSUB910 :F = 0:T=0 
POKEW,0 :POKEA,0 :IFNW>2THEN800 
RETURN 

GOSUB880:PRINT"{CLR}{YEL}{ 10 SPAZI}STUNTMAN 


: rem 
: rem 
: rem 
: rem 
: rem 
; rem 
: rem 
NELLA 


93 
40 
1 24 
111 
68 
44 
119 
PA 



LUDE":POKEV+21,0 


: rem 

62 

720 

PRINT"{ 9 SPAZI}LONTANO DAL 

BERSAGLIO! !" 

: rem 

48 

730 

FORTM=lT03000:NEXT 


: rem 

1 1 1 

740 

NM=NM-1 


: rem 

1 08 

750 

GOTO90 


: rem 

62 

760 

POKE 53280,0:POKE 53281 ,0 


: rem 

242 

770 

PRINT"{CLR}{ 15 SPAZI}{RVSjFINE GIOCO{OFF} 

" : PRINT’ 

II 


{ 12 GIU’}" 


: rem 

1 6 

780 

PRINT"{ 10 SPAZI}PUNTEGGIO. 


: rem 

7 

790 

POKEV+21 ,0 :POKEl98,0 : END 


: rem 

1 35 

800 

IFNM=1THENNM=0:GOTO90 


: rem 

67 

810 

PRINT"{CLR}{YEL}{GIU'}{ 10 

SPAZI}STUNTMAN 

FUORI USO": 


PRINT"{ 9 SPAZI}PROVA CON UN ALTRO!!" 

: rem 

1 24 

820 

POKEV+21,0:NM=NM-1:FORTM=lTO3000:NEXT 

: rem 

35 

830 

GOTO90 


: rem 

61 

840 

PRINT"{ 22 GIU'}"; 


: rem 

30 

850 

FORI = 1 938TO1 943 :POKEl,32 :NEXT 

: rem 

1 5 

860 

PRINT"{YEL}VENTO";TAB(10) ; WS ;SPC{10) ;"PUNTEGGIO 



{ 2 SPAZI}";SC;"{SIN} " 


: rem 

51 

870 

PRINT"{HOME}"; : RETURN 


: rem 

216 

880 

FORI=15TOOSTEP-1:POKE53281, 

1+80:POKE53280, 

1 + 80 





: rem 

1 99 

890 

POKEVL,I :POKEW,129:POKEA,15 

:POKEL,200:POKEH,2+5*1 

: NE 


XT 


: rem 

121 

900 

POKEW,0 :POKEA,0 : RETURN 


: rem 

1 55 

910 

PRINT"{HOME}{ 23 GIU'}";M$; 

"{HOME}"; 

: rem 

1 26 

920 

RETURN 


: rem 

1 23 

930 

DATA0,0,15,0,0,15,0,15,15,0 

,31,15,0,62,15, 

0,124,1 

5,63 


,255,255,63,255,255 


: rem 

1 53 


940 DATAI 2 7,255,255,255,255,254,255,255,252,1 27,255,248,0 
,255,0,0,127,128 :rem 78 
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950 DATAO,63,192,0,31,192,0,15,128,0,7,0,0,0,0,0,0,0,0,0, 
0 :rem 5 

960 DATAI 84,214,124,56,56,56,108,206 :rem 42 

970 DATAI 73,16,208,41 ,1 ,208,27,56,173,0,208,233,4,1 41 ,0,2 
08,201,5,176,13,173 :rem 192 

980 DATAI 6,208,9,1 ,141 ,16,208,1 69,1 00,1 41 ,0,208,96,56,1 73 
,0,208,233,4,141,0 :rem 143 

990 DATA208,201,252,144,8,173,16,208,41,254,141,16,208,96 
,238,0,208,238,0 :rem 65 

1000 DATA208,238,0,208,173,0,208,208,234,173,16,208,9,1 ,1 
41 ,1 6,208,96 : rem 108 


Rubando sotto la pioggia 



New York-Anno 2013. 

La tecnologia ha raggiunto ormai 
livelli inimmaginabili e l'alta atmo¬ 
sfera appare cupa, scura, polvero¬ 
sa e molto tossica. 

La gente gira per le strade con ma¬ 
schere antigas e tutte speciali che 
proteggono la pelle dalla pioggia 
acida che uccide qualsiasi pianta 
o animale. 

Infatti il pericolo è ancora maggio¬ 
re quando piove, poiché la piog¬ 
gia, prima di raggiungere il suolo, 
si impregna dell'acido presente 
nell'alta atmosfera, trasformandosi 
in una soluzione più corrosiva del¬ 
l'acido muriatico. 

Naturalmente i ladri non mancano 
anche in quest'epoca, e mettono a 
segno i loro colpi proprio mentre 
piove, quando la gente rimane 
chiusa in casa. 

Oggi Trophius, un ladruncolo di 
periferia, ha deciso di mettere a se¬ 
gno una rapina alla banca centrale 
della città, e quando i suoi compli¬ 
ci hanno già portato il denaro fuori 


dalla porta della banca, pronto per 
essere raccolto e portato via, la tu¬ 
ta anti-acido di Trophius si strap¬ 
pa, e il ladruncolo resta senza alcu¬ 
na protezione contro la pioggia. 
Fortunatamente tra il lato della stra¬ 
da dove il briccone nasconde i sol¬ 
di e il portone della banca ci sono 
dei muri costruiti poco prima, ma 
ancora privi di protezione contro 
la pioggia acida, che li corrode len¬ 
tamente. 

Questi muri sono l'unica possibilità 
che Trophius ha per non essere ba¬ 
gnato dalla pioggia mentre "prele¬ 
va " il denaro dalla banca. 

Ogni volta che Trophius riesce a 
portare dall'altro lato della strada 
un sacchetto di denaro (contraddi¬ 
stinto dal simbolo £) dei muratori 
ne prendono un poco e ricostrui¬ 
scono per Trophius uno dei tre mu¬ 
retti. 

Trophius ha due amici, Trophino e 
Tropher, che si sostituiscono a lui 
se viene bagnato e corroso dalla 
pioggia. 
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Morto Trophius, Trophino e Tro- 
pher la partita termina e il mallop¬ 
po viene mostrato nella parte alta 
dello schermo. 

Questo sioco permette di scegliere 
tre livelli di gioco: nel primo c'è 
solo la pioggia acida, mentre nel 
secondo e nel terzo ci sono rispet¬ 
tivamente uno e due mattonelle 
che cadono dal cielo, lanciate da¬ 
gli impiegati della banca, decisi a 
difendere il malloppo. 

Queste mattonelle sono teleguida¬ 
te, e seguono I furfanti a destra e 
a sinistra, mentre cadono. 


Inoltre è possibile giocare da soli 
o contro un amico, per vedere chi 
racimola il malloppo più consisten¬ 
te. 

Un particolare molto divertente so¬ 
no i barellieri che prendono i fur¬ 
fanti quando muoiono e li portano 
sulla autolettiga, che passa attra¬ 
verso lo schermo sibilando. 

Ed ora buon divertimento, con la 
speranza che in futuro il mondo 
non diventi veramente così inqui¬ 
nato e resti sempre florido e ricco 
di piante e animali. 


10 POKE53280,1 :POKE53281 ,1 SPRINT"{CLR}"CHR$(142)CHR$(8) 

:rem 201 

20 FORI = 1TO 6 : READ P:T= 0 :rem 122 

30 READJ:IFJ>=0THENT=T+J:POKEP,J:P=P+1:GOTO30 :rem 136 
40 IFTOABS (J) THENPRI NT" ERRORE NEI DATA" : END sreitl 8 
50 NEXT :rem 164 

60 Z = 54272 : FORI = ZTOZ+23 :POKEI,0 :NEXT:POKEI,5 :POKEZ + 6,2 49 

:rem 24 

70 V=53248 :POKEV+1,200:POKEV+21,0:POKEV+23,1:POKEV+27,0 

:rem 221 


80 POKEV+28,1 :POKEV+29,1 :POKEV+37,10 :POKEV+38,7 :POKEV+39, 



11 

: rem 

14 

90 

POKE2040,11 

: rem 

236 

100 

I=RND(-TI) :DEFFNR(X)=INT(X*RND( 1 ) ) 

: rem 

15 

11 0 

OF=Z:L=21:R=29:JS=56320 

: rem 

44 

1 20 
130 

DIMM$ ( 3 ) ,E$(3) ,S(1) ,W(1) ,E(1) ,N$(1) 

M$(0)="{GRN} Q {GIU'}{ 4 SIN} N{RVS} 

: rem 

{OFF}[<Y>] 

148 


{GIU'}{ 5 SIN?{ 2 SPAZI}[< 2 G>]" :rem 16 

140 M$ (1 ) = " {GRN} Q {GIU'H 4 SIN} [<Y>]{RVS} {OFF}M 

{GIU' } { 4 SInT[< 2 M>]{ 2 SPAZI}" :rem 120 

150 M$(2)=M$(0)+"{ 2 SPAZI}{ 2 SIN}{SU}[<1>]{RVS}£" 

:rem 226 

160 M$ (3) =M$ (1 ) +" {SU} {SIN}{GIU' } {SIN} [<1>] {RVS } £" 

treni 246 

170 E$ (0) =" {PUR} {RVSjMURO {GIU'H 5 SIN}EXTRA{OFF}" 

:rem 44 

180 FORI=lT03:E$(I)=E$(I-1)+"{GIU'}{ 5 SIN}[< 5 +>]{GIU'} 
{ 5 SIN}{< 5 +>]":NEXT :rem 144 

190 D $ = "{HOME}{ 21 GIU’}":N$(0)=" UNO":N$(l)=" DUE" 

:rem 40 


10 



200 
21 0 


300 


310 

320 

330 

340 

350 

360 

400 

410 

420 

430 


440 

450 

500 

510 

520 

600 

605 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 


PRINT"{CLR}{ 11 GIU'}"TAB(13)"{BLU}LIV.{ 2 SPAZl}(l-3 
) ?" ; :J$ = "123":GOSUB900:LV=I :rem 137 

POKEl 72 ,LV-1 : PRINT" {GIU ' } "TAB (1 2) " {REDHRVS}! {OFF} O 
{ 2 SPAZI}{RVS}2{OFF} GIOCAT.:J$ = "12":GOSUB900:NP= 
1-1 : rem * 1 31 

PRINT"{CLR}[<7>]GIOCATI{ 4 DES{RECORD{ 2 SPAZI} 

{ 4 DES}LIV. "; :IFNPTHENPRINT"{ 4 DES}GIOCAT2"; 

: rem 115 

PRINT"{HOME}{GIU'}"TAB(24)LV :rem 185 

PRINT"[<3>]{ 39 *}" : rem 60 

PRINT"{ 21 GIU'}[<5>]{RVS}{ 39 SPAZI}{OFF}";:rem 67 
POKEl76,0:SYS49152:POKEl76,1 : FORI = 820TO999:POKEl,102 : 
NEXT :rem 219 

FORI=0TONP:S(I)=0:E(I)=0:W(I)=3:NEXT:GOSUB950 

:rem 252 

P=0 :rem 86 

PRINT"{HOME}{ 24 GIU'}{ 6 DES}[<5>]{RVS}LADRI:"W(P)" 
{OFF}"; : rem 23 

IFNP=1ANDP=0THENPRINT"{HOME} [<7>] {RVSjGIOCATl {OFF}"TA 
B(32)"GIOCAT2" :rem 179 

IFNP=1ANDP=1THENPRINT"{HOME}[<7>]GIOCATl"TAB(32)" 

{RVS}GIOCAT2" : rem 35 

W=0:POKEZ+1,33 :POKEl75,0 :FORI = 680TO703 :POKEl,0:NEXT 

: rem 119 


FORI=0TO9:PRINTD$"{ 2 GIU'}"TAB(9)"{BLU}<PREPARATI Gl 
OCAT"N$(P)">":FORJ=lTO200:NEXT :rem 33 

PRINT"{SU}"TAB(9)"{ 22 SPAZI}":FORJ=lTO200:NEXT:NEXT 

:rem 160 

PRINT"{HOME}{ 24 GIU'H 23 DES}[<5>]{RVS}BORSETTE"W" 
{SINHOFF}"; : rem 195 

A=1:M=0:T=0:Q=INT( W/6):PRINTD$TAB(T)M$(M) :rem 174 

POKE56254,8:POKEl982,156 :rem 53 

FORI = OTOQ:POKEl144+FNR(39),46:SYS49920:NEXT :rem 120 

POKEl74,T+1 : SYS501 76:IFPEEK(175)THEN700 :rem 32 

IF(PEEK(197)=LOR(PEEK(JS)AND4)=0)ANDT>0THENT=T-1:M=A- 
M:PRINTD$TAB(T)M$(M) :rem 208 

IF(PEEK(197)=ROR(PEEK(JS)AND8)=0)ANDT< 3 5THENT=T+1:M=A 
-M:PRINTD$TAB(T)M$(M) :rem 15 

IFT=35ANDA=1THENPOKEZ+4,17 :A=5:M=3:POKEZ+4,16 

:rem 231 

IFT>0ORA=lTHEN600 :rem 0 

POKEZ+4,33:J=FNR(4):S(P)=S(P)+100*(4-J):GOSUB940 

: rem 217 

IFS(P)>4999ANDE(P)=0THENE(P)=1:W(P)=W(P)+1:POKEl997,P 
EEK(1 997)+! : rem 195 

W=W+1:IFW=8THENSYS49152:GOTO690 :rem 190 

PRINT"{HOME}{ 8 GIU'}"TAB(6+11*FNR(3))E$(J) :rem 141 

POKEZ+4,32:GOTO500 : rem 32 

POKEl997,PEEK(1 997)-1 : SYS49664 :rem 192 
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710 POKEZ+1 , 20 : POKEZ+4, 33 : PRINTD$TAB (T) " {GRN} [<D>n 
{GIU'H 3 SIN}U*{RVS}+{OFF}M{GIU'}{ 4 SIN}-V#. 

:rem 123 

720 FORI = 0TO999:NEXT:POKEZ+4,32 :PRINTD$TAB(T)"{ 3 SPAZI} 
{GIU'H 3 SIN} { 4 SPAZI} {GIU ' } { 4 SIN}[< 3 I>] ":FORI 
= 0TO999 : rem 23 

730 NEXT:FORI=OTOT-1+2*(T>33):PRINTD$TAB(I)" Q{ 3 SPAZI} 
Q{GIU'}{ 6 SIN} [<+>]{ 3 M[<+>]{GIU*}{ 6 SIN} 

[< 2 G>]{ 2 SPAZI}[< 2 G>]" :rem 249 

735 F0RJ=lT075:NEXT:NEXT:FORI=T+(T>0)+2*(T>33)TO0STEP-1 

: rem 181 

740 PRINTD$TAB ( I ) "Q { 3 SPAZI }Q {GIU'H 6 SIN }[<+>] {RVS } 

[< 3 0>]{OFF}[<+>] {GIU'}I 6 SIN}[< 2 G>]{ 2 SPAZI} 

[< 2 G>] ":F0RJ=lT075:NEXT:NEXT :rem 238 

745 PRINTD$"{ 5 SPAZI}{GIU'}{ 5 SIN}{ 5 SPAZl}{GIU'} 



{ 5 SIN}{ 6 SPAZI}" 

: rem 

29 

750 

SYS49493 

: rem 

168 

800 

W(P)=W(P)-1 :IFW(P)=0ANDNP=0THEN860 

: rem 

252 

81 0 

IFW(P)THEN 840 

: rem 

235 

820 

PRINTD$"{ 2 GIU'}[<2>]"TAB(9); :FORI = lTO22:PRINTMID$(" 


<GAME OVER GIOCAT"+N$(P)+">",I,1); 

: rem 

160 

830 

FORJ=ITO50:NEXT:NEXT:FORI=1953T01974:POKEI, 

32:FORJ 

= 1T 


050:NEXT:NEXT 

: rem 

59 

840 

IFNP=1ANDW( 1 - P)>0THENSYS49408 

: rem 

5 

845 

P=NP-P:IFW(P)=0THENP=NP-P 

: rem 

78 

850 

IFW(P)THEN400 

: rem 

231 

860 

POKEZ+4,17 

: rem 

26 

865 

FORI = l5T02STEP-1:POKEZ+1,20+1 :POKE646,I :PRINT"{HOME} 


{ 4 GIU'}"TAB(15)"{RVSjGAME OVER" 

:rem 

32 

870 

IFI>2THENF0RJ=1T075:NEXT:PRINT"{SU}"TAB(15) 

n 



{ 9 SPAZI}":FORJ = 1TO50:NEXT 

: rem 

5 

875 

NEXT:POKEZ + 4,16 :FORI = lTO200:NEXT 

: rem 

30 

876 

FORI = lT02:POKEZ+1,15:POKEZ+4,33 :FORJ = 0TO99: 

NEXT:POKEZ 


+ 4,32 

: rem 

1 50 

877 

FORJ=0TO99:NEXT:NEXT 

: rem 

75 

880 

PRINT"{GIU'}"TAB(13)"{BLU}ANCORA ?" ; :J$ = "SNO":GOSUB90 


0 :IFI$ = "S"THEN300 

: rem 

21 5 

890 

IFI$ = "O"THEN 200 

: rem 

46 

895 

PRINT"{CLR}": END 

: rem 

27 

900 

POKE204,0 :POKEl98,0 

: rem 

33 

910 

GETI$:IF(PEEK(JS)AND16)=0THENI$="S" 

: rem 

43 

920 

FORI = l TOLEN ( J$ ) : IFI$OMID$ (J$ ,1,1 ) THENNEXT: 

GOTO910 




: rem 

52 

930 

POKE204,1 :PRINT" "I$ : RETURN 

: rem 

80 

940 

IFS(P)>HITHENHI=S(P) 

: rem 

224 

950 

PRINT"{HOME}{GIU'}[<7>]"TAB(2-INT((LEN(STR$(S(0))) 

-1) 


/2))S(0); 

: rem 

1 29 

955 

PRINTTAB(13-INT((LEN(STR$(HI))-1 )/2))HI ; 

: rem 

48 

960 

IFNPTHENPRINTTAB(34-INT( (LEN(STR$(S(1) ))-1)/2))S ( 1) ; 



: rem 

1 9 


19 


970 PRINT:RETURN : rem 71 

1000 DATA704,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 :rem 54 

1010 DATAI 0,0,0,1 0,0,0,10,0,255,255,192,255,255,48,253,1 2 
7 :rem 47 

1020 DATAI 2,253,1 27,3,21 3,87,3,21 3,87,255,253,1 27,255,253 
,1 27,255 : rem 180 

1030 DATA255,255,255,255,255,255,1 0,1 30,1 60,10,1 30,160,2, 
0,1 28,1 60 : rem 198 

1040 DATA-6613 :rem 220 

1050 DATA49152 :rem 229 

1 060 DATAI 69,69,133,1 93,169,5,1 33,1 94,169,1 2,1 33,2,1 60,33 
,136,1 36 : rem 191 

1070 DATAI 36,1 36,1 36,16 2,5,1 36,169,1 02,1 4 5,1 93,1 65,194,24 
,105,212,133 :rem 120 

1080 DATAI 94,1 69,4,1 45,1 93,16 5,1 94,56,233,212,1 33,1 94,202 
,208,230,136 :rem 132 

1090 DATA208,220,165,193,24,105,40,133,193,144,2,230,194, 
198,2,208 :rem 223 

1100 DATA203,1 65,1 76,2 40,38,169,1 5,1 33,1 93,169,6,1 33,194, 
169,3,133 :rem 239 

1110 DATA2,162,1 5,1 89,108,1 92,168,202,1 89,1 08,1 92,145,1 93 
,202,16,243 :rem 78 

1120 DATAI 6 5,1 93,24,10 5,1 1 ,1 33,1 93,1 98,2,208,230,96,1 42,0 
/133,1 :rem 62 

1130 DATAI 51 ,2,1 30,39,1 40,40,1 43,41 ,1 31 ,42,1 39,43 

: rem 129 

1140 DATA-16266 :r em 18 

1150 DATA49408 :rem 234 

1160 DATAI 69,69,1 33,1 93,169,5,1 33,1 94,169,1 2,133,2,162,0, 

169.3 :rem 43 

1170 DATAI 33,1 77,1 60,5,1 89,52,3,72,1 77,1 93,1 57,52,3,232,1 

04,145 :rem 87 

1180 DATAI 93,165,1 94,24,105,21 2,1 33,1 94,1 69,4,145,193,165 
,194,56,233 :rem 93 

1190 DATA21 2,133,1 94,1 36,208,222,165,1 93,24,1 05,1 1 ,1 33,1 9 
3,1 44,2,230 : rem 56 

1 200 DATAI 94,1 98,1 77,208,205,1 65,1 93,24,1 05,7,1 33,193,1 44 
,2,230,194 :rem 31 

1210 DATAI 98,2,208,1 86,96,1 69,1 ,141,1 6,208,1 41 ,21 ,208,1 33 
,2,162 : rem 75 

1 220 DATA40,169,232,141 ,0,208,169,33,141 ,4,212,238,0,208, 

208.3 :rem 7 

1 230 DATA238,1 6,208,1 38,24,101,2,141 ,1 ,21 2,1 70,201 ,40,240 

,4,201 :rem 32 

1240 DATA45,208,7,169,0,56,229,2,133,2,169,45,133,193,133 
,194 :rem 244 

1 250 DATAI 98,194,208,252,198,1 93,208,246,17 3,0,208,201 ,90 
,208,204,173 :rem 138 

1 260 DATAI 6,208,201 ,3,208,1 97,1 69,32,1 41 ,4,21 2,96 

:rem 156 
:r em 21 


1270 DATA-22619 
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1280 DATA49664 :rem 242 

1 290 DATAI 60,0,1 32,1 93,1 62,4,1 34,194,177,1 93,201 ,46,208,4 
,169,32 :rem 131 

1 300 DATAI 45,1 93,200,208,243,230,194,202,208,238,1 65,1 72, 
133,173,198,173 :rem 17 

1310 DATA48,28,165,173,10,101 ,1 73,1 70,1 89,1 69,2,240,241 ,1 

33,194,1 89 : rem 30 

1 320 DATAI 68,2,1 33,1 93,1 89,1 70,2,1 68,1 69,32,1 45,193,208,2 



24,96 

: rem 

53 

1 330 

DATA-9401 

: rem 

220 

1 340 

DATA49920 

: rem 

234 

1 350 

DATAI 62,0,1 89,1 49,7,201 

,46,208,5,169,32,157,149, 

7,20 


2.208 :rem 40 

1360 DATA241,169,149,133,193,169,7,133,194,160,0,177,193, 

201 ,46,208 : rem 39 

1370 DATA67,169,32,145,193,160,40,177,193,201,160,240,55, 

201.1 56,240 : rem 72 

1380 DATA51 ,201 ,81 ,240,12,201 ,119,240,8,201 ,77,240,4,201 , 

78.208 :rem 56 

1390 DATA3,133,175,96,201,32,240,6,169,32,145,193,208,22, 

169,46 :rem 89 

1 400 DATAI 45,193,165,194,24,105,21 2,1 33,1 94,169,6,1 45,1 93 

,165,194,56 : rem 92 

1410 DATA233,212,133,194,165,193,208,8,198,194,165,194,20 

1,3,240,5 :rem 236 

1 420 DATAI 98,193,24,144,164,96 :rem 5 

1430 DATA-16383 :rem 20 

1 440 DATA501 76 :rem 230 

1 450 DATAI 65,1 72,1 33,1 73,1 9 8,1 73,1 6,1 ,96,1 65,1 73,10,101 ,1 

73.1 70,1 89 : rem 35 

1 460 DATAI 69,2,208,22,169,1 20,133,193,169,4,1 33,1 94,1 73,1 

8,208,201 : rem 234 

1 4 70 DATA40,1 44,4,233,40,1 76,248,168,16,81 ,1 33,1 94,1 89,1 6 

8.2.133 :rem 145 

1 480 DATAI 93,1 89,1 70,2,168,133,2,1 69,32,1 45,1 93,1 65,193,2 

4,105,40 :rem 193 

1 490 DATAI 33,193,1 44,2,230,1 94,1 65,1 94,201 ,7,208,6,165,19 

3.201.1 90 : rem 232 

1 500 DATAI 76,34,196,1 74,240,5,1 76,2,200,200,136,1 77,193,2 

01,81 ,208 : rem 224 

1 51 0 DATA3,1 33,1 75,96,201 ,32,240,19,201,46,240,1 5,1 96,2,2 

40,4 :rem 216 

1520 DATAI 64,2,1 6,231 ,1 69,0,1 57,1 69,2,240,1 37,1 69,1 60,145 

,1 93,165 : rem 186 

1 530 DATAI 94,24,1 05,21 2,1 33,1 94,1 69,2,1 45,193,1 65,1 94,56, 

233.212.133 :rem 77 

1 540 DATAI 94,165,1 93,157,168,2,165,194,157,169,2,152,157, 

1 70,2,76 : rem 210 

1550 DATA4,196 :rem 229 

1560 DATA-21590 :rem 20 
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Colpo d'occhio 


Ecco un gioco apparentemente 
semplicissimo>, ma che in realtà 
mette a dura prova la tua capacità 
di concentrazione. 

Sullo schermo appaiono 19 righe 
composte da 35 cifre,- scopo del 
gioco è accoppiare le cifre appar¬ 
tenenti alla medesima riga in modo 
da ottenere come somma 10. Per 
esempio se in una riga appaiono 
le cifre 

...1859... 

possiamo ottenere un punto ac¬ 
coppiando le cifre 1 e 9, in quanto 
1+9=10. Le cifre scelte vanno co¬ 



municate al computer tramite le lo¬ 
ro coordinate separate da una vir¬ 
gola, per esempio 
a4,aó 

Vi è un tempo limite di 8 minuti, 
ma se ritieni di avere scoperto tutte 
le coppie possibili prima dello sca¬ 
dere del limite, comunicalo al tuo 
C64 digitando le parole HO [virgo¬ 
la] FINITO al posto delle coordina¬ 
te. Alla fine del gioco viene visua¬ 
lizzato il punteggio e una stima del 
tuo quoziente intellettivo per 
quanto riguarda le capacità di con¬ 
centrazione. 


10 REM COLPO D'OCCHIO 

: rem 

226 

20 REM PAPERSOFT 

: rem 

250 

30 HO$=CHR$(19) :CL$=CHR$(147):CG$=CHR$(151 ) :Rl$ 

=CHR$(1 

8) : 

R0$=CHR$(146) 

: rem 

32 

40 CU$=CHR$(145):Rl =0 

: rem 

115 

50 POKE53280,2 :POKE53281 ,12 :POKE53272 f 23 

:rem 

236 

60 PRINTCG$; 

:rem 

220 

70 DIMA$(35,23) 

: rem 

240 

80 PRINTCL$; 

: rem 

227 

90 NU=0 

: rem 

1 21 

100 TI$="000000" 

: rem 

243 

110 ER=0 

: rem 

1 50 

130 REM 

: rem 

1 20 

150 PRINT"{ 11 SPAZI}1{ 9 SPAZI}2{ 9 SPAZI}3" 

: rem 

253 

160 PRINT"{ 2 SPAZIJ12345678901234567890123456789012345" 


: rem 

1 42 

170 FORJ = 1TO19 

: rem 

68 

180 PRINT:PRINTCHR$(64+J);" "; 

: rem 

216 

190 FORI=lT035 

: rem 

67 

200 A$(I,J)=STR$(INT(RND(1 ) *1 0) ) 

:rem 

223 

210 PRINTRIGHTS(A$(I,J),1); 

: rem 

32 

220 NEXTI 

: rem 

28 

230 PRINT" ";CHR$(64+J); 

: rem 

1 3 

240 NEXTJ 

: rem 

31 

260 REM 

:rem 

1 24 
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280 

PRINT 

: rem 

39 

290 

PRINTHO$; :FORG = 1T022:PRINT:NEXT:PRINT"PRIMA 

CIFRA 

+ S 


ECONDA CIFRA =10"; 

: rem 

1 0 

300 

PRINT:INPUTC$,D$ 

: rem 

229 

320 

REM 

: rem 

1 21 

340 

IFTI>=28800THEN520 

: rem 

6 

350 

IFC $ = "HO"ANDD $ = "FINITO"THEN 520 

: rem 

241 

360 

IFLEN(C$)< 20RLEN(D$ )< 2THENGOSUB730: GOTO300 

: rem 

35 

370 

J=ASC(LEFT$(C$,1))-64 

: rem 

68 

380 

I=VAL(MID$(C$,2,LEN(C$)-1)) 

:rem 

1 38 

390 

K = ASC(LEFT$(D$,1) )- 64 

: rem 

72 

400 

L=VAL(MID$(D$,2,LEN(D$)-1)) 

: rem 

1 36 

41 0 

IFI< 1 ORI>350RJ<1ORJ> 2 30RL<1ORL > 3 5QRK<1ORK> 2 2THENGOSUB 


730 :GOTO300 

: rem 

11 5 

420 

IFJOKTHENG0SUB730:G0T0300 

: rem 

1 31 

430 

IFVAL(A$(I,J))+VAL(A$(L,K))<>10THENER=ER+1:GOSUB730:G 


OTO300 

: rem 

21 0 

440 

P$=" ":HT=I+1:VT=J+2:GOSUB790 

: rem 

1 03 

450 

P$=" ":HT=L+1:VT=K+2:GOSUB790 

: rem 

108 

460 

VT=23:P$=" ":FORHT=0TO30:GOSUB790:NEXT 

: rem 

24 

470 

NU=NU+1 

: rem 

122 

480 

P$="{ 8 SPAZI}":VT=30:GOSUB780:PRINTCU$;CU$; 

CU$:CU$: : 


GOTO290 

: rem 

31 

500 

REM 

:rem 

121 

520 

PRINTCL$;:PRINT:PRINT:PRINT"HAI TROVATO ";NU 

;" COPPIE 


II 

: rem 

73 

530 

MAX=0 

: rem 

235 

540 

FORJ=lTOl9 

: rem 

69 

550 

FORI=lT034 

:rem 

66 

560 

IFVAL(A$(I,J))+VAL(A$(1+1,J))=10THENMAX=MAX+1 

2 rem 

53 

570 

NEXT 

: rem 

219 

580 

NEXT 

: rem 

220 

590 

SC =MAX-NU +ER 

: rem 

233 

600 

PRINT:PRINT"IL TUO PUNTEGGIO E' ";SC:PRINT 

: rem 

241 

610 

AV=MAX*0•6 :IQ=INT((NU/AV)*100) 

: rem 

209 

620 

IFIQ>150THENIQ=150 

: rem 

49 

625 

PRINT"LE TUE CAPACITA' DI CONCENTRAZIONE" 

: rem 

1 21 

630 

IFSC<0.6*SCTHENPRINT"SONO {RVS}OTTIME{OFF}": 

GOTO660 
: rem 18 

640 

IFSC<0,9*SCTHENPRINT"SONO BUONE":GOTO50 

: rem 

226 

650 

IFSC<1.1*SCTHENPRINT"SONO DISCRETE" 

: rem 

222 

660 

PRINT: PRINT" I_L TUO IQ (CONCENTRAZIONE) E' DI 

" ; IQ 
: rem 

28 

670 

PRINT:PRINT"ANCORA (S/N)" 

:rem 

1 38 

680 

INPUTI$ 

: rem 

1 55 

690 

IFI$<>"S"ANDI$< >"N"THENPRINTCU$;:GOTO680 

:rem 

1 88 

700 

IFI$ = "S"THEN 8 0 

: rem 

254 

71 0 

GOTO770 

: rem 

1 11 

730 

REM 

: rem 

1 26 


16 


750 PRINTCU$;CU$;:PRINT"ERRORE: REIMPOSTAI 22 SPAZI}"; 




:rem 

1 54 

760 

RETURN 

: rem 

1 25 

770 

END 

: rem 

117 

780 

HT=0 

: rem 

1 68 

790 

IFVT< 2 6 THENW=1024+(VT*40) 

: rem 

16 

800 

POKEW+HT , ASC ( P$ ) +R1 * 1 2 8 

: rem 

1 1 7 

810 

RETURN 

: rem 

1 21 


Bombardamento 


a 


“Bombardamento" gira su C64 ed 
è una simulazione di battaglia tra 
due unità provviste di cannone. 
Facendo partire il gioco il compu¬ 
ter visualizza una montagna e vi 
pone casualmente i due cannoni. 
Subito dopo si entra nel vivo del 
gioco: il computer interpella alter¬ 
nativamente l'uno e l'altro giocato¬ 
re (si gioca in due) e chiede loro 
se vogliono muoversi o sparare. 
Se il giocatore chiede di muoversii, 
può farlo mediante la tastiera (la 
corrispondenza tra tasto e direzio¬ 
ne è indicata dal programma). 
Muovendosi può anche scavare 
nella montagna per crearsi un rifu¬ 
gio. Se il giocatore porta il cannone 
in un punto non a contatto con il 
terreno, il cannone, alla fine dello 
spostamento, cade verticalmente 
fino a giungere sulla superficie del¬ 
la montagna. 


100 GOSUBl260 
110 GOSUB840 
120 G=US 

130 P$(1 ) =U2$ + "GIOC.SINISTRO 
{ 2 SPAZI}" 


Se si scava si possono compiere 2 
movimenti alla volta, mentre se si 
cammina sulla superficie se ne 
possono compiere 4. 

L'opzione di sparo chiede al gioca¬ 
tore l’angolo che deve assumere la 
canna del cannone e la forza che 
deve esercitare sul proiettile. 
L'angolo può variare tra +90 -90 
gradi: 

zero corrisponde all'orizzontale 
verso il nemico, e di conseguenza 
i gradi negativi spareranno il pro¬ 
iettile verso il basso, e quelli positi¬ 
vi verso l’alto. 

Il programma tiene conto anche del¬ 
la gravità e fa quindi percorrere ai 
proiettili delle perfette parabole. 
Appena il proiettile tocca la super¬ 
ficie della montagna esplode. 

Il vincitore è colui il quale riesce a 
colpire l'avversario. Ed ora buon 
divertimento e... mirate bene! 


:rem 218 
: rem 174 
:rem 191 

:P$(2)=U4$+"GIOC.DESTRO 

:rem 87 


17 


C64 





1 40 

POKEUB,UF:POKEUG, U0 

: rem 

216 

1 50 

PRINT"{CLR}"UF$; :POKEUG,! 5 

: rem 

1 39 

160 

X=RND( 1 ) :Z = RND(1) :A=RND(1)*5:B=RND(1 ) *5 

: rem 

1 96 

170 

KZ = 0: X(1)=0:X(2)=0:Y(1)=0:Y(2)=0 

: rem 

1 78 

1 80 

FORI=0TO39 

: rem 

69 

1 90 

X=X+RND(1)/2:Z=Z+RND( 1 ) /2 

: rem 

1 50 

200 

Y=INT(SIN(X)*A+COS(Z)*B + 1 4) 

:rem 

25 

21 0 

F0RK=YT024 

: rem 

1 00 

220 

POKEG+I+40*K,160:POKEUC+I+40*K,U6 

:rem 

.1 1 7 

230 

NEXTK 

:rem 

31 

240 

NEXTI 

: rem 

30 

250 

X(1)=INT(RND(1)*8+4):X(2)=INT(RND(1)*8+28) 

:rem 

252 

260 

FORI=1TO2 

: rem 

1 1 

270 

K=PEEK(G+X(I)+40*(Y(I)+1)) 

:rem 

84 

280 

IFK=32THENY(I)=Y(I)+1:GOTO270 

: rem 

208 

290 

POKEG+X(I)+40*Y(I),35 

: rem 

110 

300 

UM=U2:IFI=2THENUM=U4 

:rem 

1 7 

310 

POKEUC+X(I)+40*Y(I),UM 

:rem 

242 

320 

NEXTI 

: rem 

29 

330 

FORI = lT02:MM=4:IFLZ = 1THENLZ = 0:1 = 2 

: rem 

95 

340 

F0RK=lT02:UM=U2:IFK=2THENUM=U4 

: rem 

198 

350 

IFPEEK(G+X(K)+40*(Y(K)+1))<>160THEN370 

: rem 

56 

360 

POKEG+X(K)+40*Y(K) ,35 :POKEUC+X(K)+40*Y(K) , 

UM:NEXTK:GO 


TO380 

: rem 

222 

370 

POKEG+X(K)+40*Y(K) ,32 :Y(K)=Y(K)+1:GOTO350 

:rem 

54 

380 

PRINT"{HOME}{RVS}"P$(I)"{OFF}{ 3 SPAZI}{RVS}M=SCAVO/M 


OSSA{ 3 SPAZI}L=LANCIO" 

: rem 

1 26 

390 

GETA$:IFA$=""THEN390 

:rem 

91 

400 

IFA$ = "L"THEN 430 

:rem 

27 

410 

IFA$="M"THEN870 

: rem 

37 

420 

GOTO390 

: rem 

107 

430 

INPUT"{HOME}{GIU’}ANGOLO (DA -90 A +90)";A(I) 

:rem 

166 

440 

IFA(I)<-90ORA(I)>90THEN430 

: rem 

1 89 

450 

INPUT"{HOME}{ 2 GIU'}FORZA LANCIO{ 4 SPAZI}(1-5)" 

;P(i 


) 

:rem 

227 

460 

P(I)=P(I)*2:IFP(I)<=0ORP(I)>1OTHEN450 

:rem 

85 

470 

GOSUBl210 

:rem 

223 

480 

IFI=2THEN520 

: rem 

1 69 

490 

YF=-A(I)/90*P(I)/15 

: rem 

194 

500 

XF=(90-ABS(A(I)))/90*P(I)/15 

: rem 

1 54 

510 

GOTO540 

: rem 

104 

520 

YF=-A(I)/90*P(I)/15 

: rem 

1 88 

530 

XF=-(90-ABS(A(I)))/90*P(I)/15 

: rem 

202 

540 

IG = 0:XX=X(I)+SGN(XF)+.5 :YY=Y(I)+SGN(YF) +.5 

: rem 

236 

550 

Y8=0:X8=0 

:rem 

207 

560 

XX=XX+X8:YY=YY+Y8:YF=YF+.01 :IFYF>lTHENYF=l 

:rem 

12 

570 

X8=XF:Y8=YF 

:rem 

174 

580 

Z1=INT(G+INT(XX)+INT(YY)*40) 

:rem 

166 

590 

Z 2 = INT(G+INT(XX+X8)+INT(YY+Y8)*40) 

18 

:rem 

31 


600 

IFYY+Y8> 240RXX+X8< OORXX+X8> 39THENPOKEZ1 

, 32:GOTO780 





:rem 

241 

610 

IFYY+Y8<1THENIG=1:POKEZl,32:GOTO630 


:rem 

191 

620 

IG = 0 


: rem 

1 49 

630 

K=PEEK(Z 2) 


:rem 

35 

640 

IFIGTHEN560 


: rem 

1 31 

650 

IFK=320RK=81THEN760 


:rem 

11 7 

660 

IFK= 35THENKZ=1 


: rem 

93 

670 

POKEZl,32 


: rem 

232 

680 

FORJ = lTO 20 :POKEZ2,42:POKEZ2,32:NEXTJ 

: IFKZ=0THEN780 





: rem 

1 87 

690 

IFI NT(G+X(2)*40*Y(2))=Z2THENLZ=1:Wl = 

Wl+1:GOTO710 





: rem 

69 

700 

W2=W2+1 


: rem 

66 

710 

FORJ = lT0 5:POKEZ2+J,42 :POKEZ2-J,42:POKEZ2-J*40,42:POKE 


Z 2+J *40,42:NEXTJ 


: rem 

226 

720 

PRINT"{HOME}{RVS}DI STRUTTO! !":GOSUB810: 

PRINT"{GIU’ 

}GI 


OCHI ANCORA ? (S/N)" 


: rem 

21 7 

730 * 

GETA$:IFA$=""THEN730 


: rem 

87 

740 

IFKZ=1ANDA$="S"THENGOTOl10 


: rem 

67 

750 

IFKZ=1THENPRINT"{CLR}{GIU'}GRAZIE PER AVER GIOCATO 

CO 


N ME! ! CIAO!!": END 


: rem 

226 

760 

POKEZl,32 


: rem 

232 

770 

POKEZ2,81 :POKEZ2-1 024+UC,0 : GOTO 560 


: rem 

4 

780 

REM 


: rem 

1 31 

790 

NEXTI 


: rem 

40 

800 

GOTO330 


: rem 

1 03 

81 0 

PRINT"IL PUNTEGGIO E' QUESTO." 


:rem 

1 8 

820 

PRINTU2$;"{GIU 1 {SINISTRO:"Wl"{ 17 SPAZI}"U4$;"DESTRO: 


"W2 


: rem 

1 63 

830 

RETURN 


: rem 

1 23 

840 

POKEUG,1:POKEUB,0:PRINT"{CLR}[<2>]{ 

1 0 

GIU' } 



{ 12 SPAZI}{RVS} BOMBARDAMENTO! " 


: rem 

235 

850 

FORPA=1TO2000 :NEXT 


: rem 

97 

860 

RETURN 


: rem 

1 26 

870 

PRINTU6?"{HOME}{GIU'}PREMI IL TASTO 

DESIDERATO:"UF$; " 


Q W E" 


: rem 

41 

880 

PRINT"{ 26 SPAZI}"UF$;"A "U2$;"{RVS}S{OFF}"UF$;" D 




: rem 

1 1 3 

890 

PRINT"{ 26 SPAZI}"UF$;"Z X C" 


: rem 

1 65 

900 

B=0:GETB$:IFB$=""THEN900 


: rem 

64 

910 

IFB$="Z"THENB=1 


: rem 

73 

920 

IFB$="X"THENB=2 


: rem 

73 

930 

IFB$ = "C"THENB= 3 


: rem 

54 

940 

IFB$="A"THENB=4 


: rem 

54 

950 

IFB$ = "S"THENB= 5 


: rem 

74 

960 

IFB$="D"THENB=6 


: rem 

61 

970 

IFB$="Q"THENB=7 


: rem 

76 

980 

IFB$="W"THENB=8 


: rem 

84 

990 

IFB$="E"THENB=9 


: rem 

68 


19 



1 000 

IFB=0THEN900 

: rem 

1 99 

1010 

XX=X(I): YY=Y(I) :POKEG+X(I)+Y(I)*40,32 

:rem 

1 99 

1020 

ONBGOSUBl120,1130,1140,1150,1160,1170,1180, 

11 90, 
: rem 

1 200 

1 29 

1030 

IFX(I)> 3 90RX(I)<1ORY(I)>240RY(I)<2THENX(I) = 

XX:Y(I)=Y 


Y 

:rem 

83 

1 040 

K=PEEK(G+X(I)+40*Y(I)) 

:rem 

211 

1 050 

IFK = 16 0THENMM=MM-1 

: rem 

114 

1 060 

MM=MM-1 : IFMM< OTHENX(I)=XX:Y(I)=YY:GOSUBl210 

i: GOTO 780 



: rem 

31 

1 070 

UM=U2:POKEG+X(I)+40*Y(I),35:IFI=2THENUM=U4 

:rem 

83 

1 080 

POKEUC+X(I)+40*Y(I),UM 

:rem 

39 

1 090 

GOSUBl210 

: rem 

1 4 

1100 

IFMM>0THEN870 

: rem 

39 

1110 

GOTO780 

: rem 

1 55 

1120 

X(I)=X(I)-1 :Y(I)=Y(I)+1 : RETURN 

: rem 

22 

11 30 

X(I)=X(I)+0:Y(I)=Y(I)+1 : RETURN 

: rem 

20 

11 40 

X(I)=X(I)+1:Y(I)=Y(I)+1: RETURN 

:rem 

22 

11 50 

X(I)=X(I)-1 :Y(I)=Y(I)+0:RETU RN 

: rem 

24 

1160 

X(I)=X(I)+0:Y(I)=Y(I)+0:RETURN 

:rem 

22 

1 1 70 

X(I)=X(I)+1:Y(I)=Y(I)+0: RETURN 

: rem 

24 

1 1 80 

X(I)=X{I)—1 :Y(I)=Y(I)-1: RETURN 

:rem 

30 

11 90 

X(I)=X(I)+0:Y(I)=Y(I)-1: RETURN 

:rem 

28 

1 200 

X ( I ) =X (I)+l : Y ( I ) =Y ( I ) ■*• 1 : RETURN 

:rem 

21 

1210 

PRINT"{HOME}{ 40 SPAZI}"; 

: rem 

227 

1 220 

PRINT"{ 39 SPAZI}" 

: rem 

1 50 

1 230 

PRINT"{ 39 SPAZI}" 

:rem 

1 51 

1240 

PRINT"{ 39 SPAZI}" 

:rem 

1 52 

1 250 

RETURN 

:rem 

168 

1260 

REM 

: rem 

1 73 

1 270 

US = 1024 :UC = 55296:UG=53281 :UB=53280 

: rem 

1 82 

1 280 

U0=0:U0$="{BLK}":U2=2:U2$="{RED}" 

:rem 

99 

1290 

U4=6:U4$="{BLU} " : U 6= 9 : U 6$ = "[<2>]" 

:rem 

1 37 

1 300 

UF = 11:UF$ = " [<4>]": RETURN 

: rem 

41 


20 



u 


Qui vive 



Questo gioco, appassionante e an¬ 
tichissimo\ si effettua su una scac¬ 
chiera di dimensioni 5x5. Ogni gio¬ 
catore dispone di 5 pedine e deve 
cercare di sistemarle in modo da 
ottenere una configurazione sim¬ 
metrica. Nella versione che vi pre¬ 
sentiamo il vostro avversario è il 
C64. 

All'inizio del gioco la scacchiera è 
vuota e, alternativamente, voi e il 


computer dovrete disporre le pe¬ 
dine su di essa impostando le 
coordinate desiderate (Al, B3, D2 
ecc.). Una volta sistemate tutte le 
pedine comincerete a muoverle 
cercando di ottenere una configu¬ 
razione vincente. Dovrete in que¬ 
sto caso digitare prima le coordi¬ 
nate della pedina che volete muo¬ 
vere, quindi le coordinate della 
posizione d'arrivo desiderata. 


10 REM QUI VIVE 

srem 

1 10 

20 POKE53280,5:POKE53281 ,8 

treni 

1 96 

30 DIMSF(41,4),SO(41) 

treni 

1 1 2 

40 DIMD(107,1),DF(15,8 ) 

: rem 

1 53 

60 DIMCC(4,1), B ( 2 4 ), C ( 2 4 ) 

: rem 

243 

70 GOTO3000 

: rem 

99 

1 00 

REM CALCOLA I PUNTI DI DF 

: rem 

84 

110 

GV=0:Pi=0:P2=0:C1=0:C2=0 

: rem 

36 

1 20 

Di=B(DF(NF,0)) :D2=B (DF (NF,1) ) 

trem 

239 

1 30 

IFD1=1 OR D2=1 THENPl=1 

: rem 

169 

1 40 

IFD1=1OOR D2=lOTHENCl=10 

: rem 

45 

150 

Di=B(DF(NF,2)):D2=B(DF(NF,3)) 

2 rem 

246 

160 

IFD1=1 OR D2=l THENP2=1 

: rem 

1 73 

1 70 

IFD1=1OOR D2=l0THENC2=10 

: rem 

49 

1 80 

GV=B(DF(NF,4))+B(DF(NF,5))+B(DF(NF,6)) 

: rem 

242 

1 90 

P=GV+Pl+P2+C1+C2 

2 rem 

92 

200 

IFGV=30AND(C1=0ORC2 = 0)THENP=P-1 0 

2 rem 

1 28 

21 0 

IFGV=3AND(Pi=0ORP2=0)THENP=P-1 

2 rem 

59 

220 

RETURN 

2 rem 

116 

300 

REM INIZIALI ZZA LE FIGURE SINGOLE 

2 rem 

41 

310 

FORI=0TO41:READX$ 

2 rem 

1 1 

320 

FORJ = 1TO 5 

2 rem 

1 2 

330 

SF(I,J-1)=ASC(MID$(X$,J,1) )- 65 

2 rem 

56 

340 

NEXT:NEXT:RETURN 

2 rem 

1 05 

350 

REM CONFIGURAZIONI 

2 rem 

1 63 

360 

DATA UQMSY,PLHNT,KGCIO 

2 rem 

1 57 

370 

DATA AGMIE,FLRNJ,KQWSO 

2 rem 

1 28 

380 

DATA AGMQU,BHNRV,CIOSW 

2 rem 

141 

390 

DATA EIMSY,DHLRX,CGKQW 

2 rem 

1 48 

400 

REM PER (X) 

2 rem 

8 


21 





410 

DATA ACGKM,BDHLN,CEIMO 

: rem 

63 

420 

DATA FLHPR,GIMQS,HJNRT 

: rem 

1 39 

430 

DATA KMQUW,LNRVX,MOSWY 

: rem 

21 5 

440 

REM PIU' (+) 

: rem 

1 3 

450 

DATA BFGHL,CGHIM,DHIJN 

: rem 

67 

460 

DATA GKLMQ,HLMNR,IMNOS 

: rem 

1 43 

470 

DATA LPQRV,MQRSW,NRSTX 

: rem 

219 

480 

REM DIAGONALI (/) 

: rem 

136 

490 

DATA AGMSY,EIMQU 

: rem 

229 

500 

REM COLONNE (I) 

: rem 

33 

510 

DATA AFKPU , BGLQV,CHMRW 

: rem 

1 24 

520 

DATA DINSX,EJOTY 

: rem 

238 

530 

REM RIGHE (-) 

: rem 

1 05 

540 

DATA ABCDE,FGHIJ,KLMNO 

: rem 

67 

550 

DATA PQRST,UVWXY 

: rem 

45 

555 

REM 

: rem 

1 31 

560 

REM INI ZIALI ZZA LE FIGURE DOPPIE 

: rem 

225 

570 

FORI=0TOl0 7STEP12 :READX$ 

: rem 

229 

580 

FORJ = OTOl1 :FORK = OTOl 

: rem 

237 

590 

L=2*J+K+1:D(I+J,K)=ASC(MID$(X$,L,1 ) )-49 

: rem 

66 

600 

NEXT:NEXT:NEXT 

: rem 

199 

610 

RETURN 

: rem 

119 

620 

DATA"!71 :1A1C1ElMlOlP2>2@2B2J" 

: rem 

118 

630 

DATA"393<3=3?3G474:4=4?4a4040" 

: rem 

102 

640 

DATA"4P5@5B5D5J696<6C6E6M7=7A" 

: rem 

164 

650 

DATA"7C7l707P8>8B8D8J9?9E9K:?" 

: rem 

225 

660 

DATA":A:E:K:0:P;>;@;D;J<=<C<I" 

: rem 

1 

670 

DATA"=G=I=0>F>H>J?G?K?P@F@J@L" 

: rem 

94 

680 

DATA"AGAIAKAMAOAPBHBJBNCICMCP" 

: rem 

1 58 

690 

DATA"DJDLDNEKEMEOFRFWGSGWHTHW" 

: rem 

11 

700 

DATA"IRIXJSJXKTKXLRLYMSMYNTNY" 

: rem 

1 32 

790 

REM 

: rem 

1 32 

800 

REM VALUTA IL CAMPO DELLE FIGURE DOPPIE 

: rem 

55 

810 

TC = 4 :TN = 0 

: rem 

234 

820 

FORI=0TO4:C(SF(D(DF,0) ,I) )=1 : NEXT 

: rem 

1 57 

830 

FORI=0TO4:SF=SF(D(DF,1),1) 

: rem 

250 

840 

IFC(SF)=1THEN860 

: rem 

1 47 

850 

DF(NF, TN)=SF:TN=TN+1:GOTO870 

: rem 

217 

860 

DF (NF,TC)=SF:TC=TC + 1:C(SF) =0 

: rem 

1 23 

870 

NEXT 

: rem 

222 

880 

FORI=0TO4:SF=SF(D(DF,0),1) 

: rem 

254 

890 

IFC(SF)=1THENDF(NF,TN)=SF:TN=TN+1:C(SF)=0 

:rem 

248 

900 

NEXT:RETURN 

: rem 

242 

1000 REM VISUALIZZA IL CAMPO 

: rem 

1 88 

1 005 PRINTSPC (1 4) "-{GIU ' } { 3 SPAZI }ABCDE {GIU '} " 

: rem 

164 

1010 FORI=0TO4:PRINTSPC(14)5-1;:FORJ=0TO4 

: rem 

46 

1020 F = I*5+J 

: rem 

99 

1 030 IFB(F)=0THENPRINT"." ; 

: rem 

2 

1040 IFB(F)=1THENPRINT"W"; 

: rem 

173 

1050 IFB(F)=10THENPRINT"Q"; 

: rem 

216 

1060 NEXT:PRINT5-I :NEXT 

: rem 

241 


22 


1070 

PRINTSPC(14)"{GIU 1 }{ 3 SPAZI}ABCDE{ 

2 GIU'}" 




: rem 

1 83 

1 080 

RETURN 

: rem 

169 

1100 

REM 

: rem 

1 66 

ino 

0M=-1 :WM=-1 

: rem 

11 5 

1120 

FORSF=0TO41 

: rem 

1 85 

1130 

P=B(SF(SF,0))+B(SF(SF,1 ) )+B(SF(SF,2) 

) +B (SF (SF , 3 ) )+B( 


SF(SF,4)) 

: rem 

66 

11 40 

IFP=OORP=10ORP=20ORP=30THENSO(SF)=10 

: GOTO!240 




: rem 

85 

11 50 

IFPO40THEN1 1 90 

: rem 

1 26 

1160 

G0SUB1250 

: rem 

1 6 

1170 

GOSUBl290 

: rem 

21 

1180 

WM= 1 :SF = 41: GOTO!240 

: rem 

1 39 

1190 

IFP>20ORP< 30RP = 110RP=12THENSO(SF)=0: 

GOTOl240 




: rem 

45 

1200 

SO(SF)=1 

:rem 

1 89 

1210 

IFP=4ANDOM=-lTHENGOSUBl250 

: rem 

1 49 

1 220 

IFP=14THENGOSUB1290 

: rem 

193 

1 230 

IFP=5THENSF=41 

: rem 

129 

1240 

NEXT:RETURN 

:rem 

32 

1250 

REM DETERMINA LE MOSSE OBBLIGATE (OM) :rem 

21 1 

1 260 

FORI=OTO4 

: rem 

61 

1270 

IFB(SF(SF,I))=0THENOM=SF(SF,I) 

: rem 

81 

1 280 

NEXT:RETURN 

: rem 

36 

1290 

REM 

: rem 

176 

1 300 

FORI=0TO4 

: rem 

56 

1310 

IFB(SF(SF,I))< >1OTHENl350 

: rem 

178 

1 320 

FORJ=OTOCC-1 

: rem 

235 

1330 

IFSF(SF,I)=CC(J,0)THENCC(J,1)=1 

: rem 

35 

1340 

NEXT 

: rem 

7 

1350 

NEXT 

: rem 

8 

1360 

RETURN 

: rem 

1 70 

1400 

REM 

: rem 

1 69 

1410 

NC=0:NP=0:NF=0 

: rem 

68 

1420 

FORI=0TO15 

: rem 

1 09 

1430 

DF(1,8)=-l 

: rem 

235 

1440 

DF(I,7)=0 

: rem 

1 89 

1450 

NEXT 

: rem 

9 

1460 

FORDF=OTOl07 

: rem 

228 

1470 

Ol=SO(D(DF,0)):02=SO(D(DF,1)) 

:rem 

94 

1480 

IFOl 0020R01 =OORO2 = OTHENl 600 

: rem 

234 

1490 

GOSUB800 

: rem 

230 

1 500 

GOSUBl00 

: rem 

215 

1510 

IFP=40RP=14THENDF(NF,7)=1:GOTOl540 

: rem 

86 

1 520 

IFOl=10RP<=DF(NF,8)THENl600 

: rem 

1 20 

1 530 

DF (NF,7)=10 

: rem 

57 

1 540 

DF(NF/8)=P 

: rem 

42 

1 550 

NF=0 

:rem 

204 

1 560 

FORI=0TOl5 

: rem 

114 

1 570 

IFDF(1,8)>=DF(NF,8)THENl 590 

: rem 

48 


23 


1 580 

1 590 

1600 

1610 

1 800 

1 810 

1 820 

1830 

1 840 

1 850 

1 860 

1870 

1 880 

1 890 

1900 

1910 

1 920 

1 930 

1 940 

1 950 

1 960 

1 970 

1 980 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

21 00 

21 1 0 

2120 

21 30 

2140 

2150 

2160 

2170 

21 80 

2190 

2200 

221 0 

2220 

2230 

2240 

2250 


IFDF(I,7)=0ORDF(I,7)=10THENNF=1 

: rem 

72 

NEXT 

: rem 

14 

NEXT 

: rem 

6 

RETURN 

: rem 

1 68 

REM VALUTA LA MOSSA STRATEGICA 

: rem 

113 

IFWM=1THENl960 

: rem 

1 06 

MC=0:N2=0 

: rem 

239 

FORNF=OTOl5 

: rem 

1 89 

IFDF(NF,7)=0THENl900 

: rem 

1 48 

GOSUBl00 

: rem 

223 

IFDF(NF, 7) =1THENl890 

: rem 

159 

IFP=MCTHENN2=N2+1 

: rem 

68 

IFP>MCTHENMC=P:N2=1 

: rem 

•242 

IFP=4THENNF=15 

: rem 

1 36 

NEXT 

: rem 

9 

IFPP=-1THENl960 

: rem 

148 

IFP= 4THENRETURN 

: rem 

43 

IFMC<MPTHENRETURN 

: rem 

21 2 

IFMC=MPANDN2 < N1THENRETURN 

:rem 

228 

IFMC =MPANDN2 =N1ANDRND(0)<.5THENRETURN 

: rem 

1 89 

MP=MC:Ni=N2 

: rem 

1 76 

PP=CP:PT=CT 

: rem 

243 

RETURN 

: rem 

1 78 

REM MOSSA DEL GIOCATORE 

: rem 

1 55 

IFPC< 5THEN20 50 

: rem 

76 

PRINT"CHE PEDINA VUOI MUOVERE"; 

: rem 

1 83 

GOSUB2130 :PT=X 

: rem 

1 26 

IFB(PT)OlTHENPRINT"IMPOSSIBILE!":GOTO2020 

: rem 

207 

PRINT"DOVE VUOI METTERE LA TUA PEDINA"; 

: rem 

1 30 

GOSUB2130:PP=X 

:rem 

125 

IFB (PP) OOTHENPRINT" IMPOSSIBILE! " :GOTO2050 

: rem 

208 

IFPC=5THENB(PT)=0 

: rem 

49 

IFPC< 5THENPC=PC + 1 

: rem 

76 

B(PP)=1 

: rem 

100 

PRINT"{CLR}{ 3 GIU'}":GOSUBl000 

: rem 

214 

RETURN 

: rem 

165 

REM INPUT 

: rem 

58 

INPUTX$:IFLEN(X$)<>2THEN2190 

: rem 

239 

L$=LEFT$(X$, 1 ) :D$=RIGHT$(X$,1) 

: rem 

1 53 

IFL$<"A"ORL$ >"E"ORD$<"1"ORD$>"5"THEN2190 

: rem 

214 

X=ASC(L$)- 5*VAL(D$)-40 

: rem 

1 76 

RETURN 

: rem 

171 

PRINT"INPUT ERRATO! RIPROVA:":G0T02140 

: rem 

1 78 

REM MOSSA DEL COMPUTER 

: rem 

111 

PRINT"{CLR}{GIU'}":IFCC<5THENPT=CC:CC=CC+1: 

GOTO2270 


: rem 

173 

PRINTSPC(14)"PRENDO{ 2 SPAZI}"CHR$(65+PT-INT(PT/5)*5 

) ; 5-INT(PT/5) 

: rem 

56 

B(PT)=0 

: rem 

107 

FORCI=OTO4 

: rem 

1 27 

IFCC(CI,0)=PTTHENPT=CI:CI=4 

: rem 

203 


24 


2260 

NEXT 

: rem 

9 

2270 

PRINTSPC(13)"MUOVO IN{ 2 SPAZI}"CHR$(65+PP- 

INT(PP/5) 


*5) ; 5-INT(PP/5) :PRINT 

: rem 

92 

2280 

B(PP)=10:CC(PT,0)=PP 

: rem 

1 39 

2290 

GOSUBl000 

: rem 

1 4 

2300 

RETURN 

: rem 

1 65 

3000 

REM PARTE PRINCIPALE 

: rem 

1 0 

3010 

PRINT"{CLR}{BLK}{GIU'}":PRINTSPC(15)"ATTENDERE 



{ 2 GIU'}" 

: rem 

47 

3020 

GOSUB300 

: rem 

216 

3030 

GOSUB560 

: rem 

225 

3060 

CC=0:PC=0 

: rem 

246 

3070 

PP=12:GOTO3300 

: rem 

67 

3080 

FORI=0TO4:CC(1,1)=0:NEXT 

: rem 

220 

3090 

GOSUBl100 

: rem 

1 4 

3100 

IFP = 5THENPRINT"{GIU'}FINE.": END 

: rem 

1 35 

3110 

IFWM=1THEN 3130 

: rem 

92 

3120 

GOSUBl400 

: rem 

1 1 

3130 

MP=0:Nl=0:PP=-l 

: rem 

1 08 

31 40 

BF=0:EF=24 

: rem 

37 

31 50 

IFOMO- 1 THENBF=OM: EF=OM 

: rem 

250 

3160 

FORCP=BFTOEF 

: rem 

55 

3170 

IFB (CP) O0THEN3290 

: rem 

39 

3200 

B(CP)=10 

: rem 

1 37 

321 0 

IFCC< 5THENGOSUB1 800:GOT03280 

: rem 

4 

3220 

FORCI=0TO4 

: rem 

1 26 

3230 

IFCC(CI,1)THEN3270 

: rem 

1 8 

3240 

CT=CC(CI,0):B(CT)=0 

: rem 

45 

3250 

GOSUBl800 

: rem 

1 9 

3260 

B (CT) =1 0 

: rem 

1 47 

3270 

NEXT 

: rem 

11 

3280 

B (CP)=0 

: rem 

96 

3290 

NEXT 

: rem 

1 3 

3300 

GOSUB2200 

: rem 

1 0 

3310 

IFWM=1THENP=5: GOTO31 00 

: rem 

1 44 

3320 

GOSUB2000 

: rem 

1 0 

3330 

PRINTSPC(1 5)"{ 2 GIU 1 }ATTENDERE" 

: rem 

245 

3340 

GOTO3080 

: rem 

206 


25 



A 

0 > 

£Vclocizzatore di sprites 


Spesso controllare più di uno spri- 
te nello stesso tempo con direzioni 
e velocità diverse è molto difficile 
sia perché insorgono difficoltà di 
programmazione sia perché il Ba¬ 
sic potrebbe risultare molto lento. 
Questo programma permette di 
muovere indipendentemente 8 
sprites (il massimo permesso dal 
C64) attraverso lo schermo. Per 
ogni sprite sono richiesti 6 parame¬ 
tri, 3 per ogni asse ortogonale: 

X= velocità e direzione 
Y= velocità e direzione 
X= minima posizione 
y= minima posizione 
X= massima posizione 
y= massima posizione 

Questi parametri sono “immagaz¬ 
zinati" dalla locazione 700 alla 
755. Le locazioni da 700 a 715 con¬ 
trollano velocità e direzione. La ve¬ 
locità è nulla se impostiamo un va¬ 
lore 0, minima con valore 1 e mas¬ 
sima con valore 127. Sommando 
128 al valore della velocità inver¬ 
tiamo la direzione dello sprite ri¬ 
spetto all’asse considerato. 

700= velocità e direzione sull'asse 
X dello sprite 0 

701 = velocità e direzione sull'asse 
y dello sprite 0 
e via fino a 

714= velocità e direzione sull’asse 
X dello sprite 7 

715= velocità e direzione sull’asse 
y dello sprite 7 


Come già detto, se si pone una di 
queste locazioni a 0 si ferma il mo¬ 
vimento dello sprite relativo rispet¬ 
to all’asse scelto. 

Le locazioni da 720 a 735 sono le 
posizioni minime, di X e /„ che lo 
sprite può assumere. Il moto dello 
sprite si inverte una volta raggiunta 
la minima posizione. 

720= minima posizione sull 'asse X 
dello sprite 0 

721= minima posizione sull’asse / 
dello sprite 0 

e via fino a 

734= minima posizione sull 'asse X 
dello sprite 7 

735= minima posizione sull'asse / 
dello sprite 7 

Le locazioni da 740 a 755 sono le 
massime posizioni degli sprites. 
Ovviamente anche in questo caso 
lo sprite, raggiunta la massima po¬ 
sizione, in verte il suo moto. 

La massima posizione sull’asse X 
va calcolata sottraendo un valore 
di 256 alla posizione reale dello 
sprite. Così se vogliamo per esem¬ 
pio che lo sprite arrivi a toccare il 
bordo destro del video, occorrerà 
impostare un valore di 64 in quan¬ 
to 320-256 = 64. 

740= Massima posizione sull'asse 
X dello sprite 0 

741= massima posizione sull'asse 
y dello sprite 0 
e via fino a 
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754 = massima posizione sull’asse 
X dello sprite 7 

755 = massima posizione sull’asse 
Y dello sprite 7 

Nella routine ci sono ancora due 
locazioni non ancora menzionate. 
La locazione 1023 controlla la ve¬ 
locità desìi sprites in movimento 
(l=ve!oce, 255=lento). Quando si 
"poka" questa locazione, la loca¬ 
zione 2 dovrà essere "pokata" con 
il medesimo valore o un ritardo 


può verificarsi nel cambio di velo¬ 
cità. 

La locazione 254 controlla se la 
routine di interrupt aggiorna o no 
la posizione dello sprite. "Pokan- 
do” 0 si abilita la routine mentre 
con 1 la si disabilita permettendo 
di usare gli sprites in modo norma¬ 
le. 

Per poter usare bene questo fanta¬ 
stico programma ti converrà effet¬ 
tuare numerose prove. Buon diver¬ 
timento! 


10 PRINT"{CLR}{GIU'}ATTENDERE PREGO..." :rem 121 

20 FORT=OTOl1:CH=0:FORS = OTOl5 :READH:CH=CH+H:POKE491 52+T*l 
6+S,H:NEXT:READH :rem 80 

30 IFHO (CHAND255) THENPRINT" {CLRjERRORE NELLA LINEA "PEEK 


(63)+256*PEEK(64):END :rem 248 

40 SU=SU+CH: NEXT: IFSU024741 THENPRINT" {CLR}ERRORI NELLE L 


INEE 1000-1110":END 

: rem 

1 8 

50 PRINT"{CLRjlNIZIO ROUTINE DIGITANDO 'SYS 49152'" 




: rem 

1 66 

60 PRINT"{GIU'}ABILITARE L'INTERRUPT 'POKE 254 

,0'" 




: rem 

1 37 

70 PRINT"{GIU'{DISABILITARE L'INTERRUPT 'POKE 

254,1 ' 

ff 



: rem 

1 07 

80 END 

: rem 

63 

997 

: 

: rem 

227 

998 

REM * * *DATI DEL LINGUAGGIO MACCHINA*** 

: rem 

1 55 

999 

: 

: rem 

229 

1000 

DATAI 20,1 69,192,1 41 ,21 ,3,169,13,141 ,20,3, 

88,96, 

1 65,2 


54,208,11 

: rem 

21 5 

1010 

DATA4,198,2,240,3,76,49,234,173,255,3, 1 33 

,2,32, 

35,19 


2,95 

: rem 

234 

1020 

DATA76,4 9,234,1 6 2,0,1 38,74,168,189,18 2, 

41,127 

,240, 


110,189,195 

: rem 

92 

1 030 

DATAI 88,2,48,51 ,1 33,252,254,0,208,208,9,1 73,1 6, 

208,2 


5,164,147 

: rem 

229 

1 040 

DATAI 92,1 41 ,16,208,1 89,0,208,221 ,228,2,1 44,20, 1 38,74 


,176,8,173 

: rem 

20 

1050 

DATAI 73,16,208,57,1 64,1 9 2,240,8,1 89,1 88,2 

,9,128 

,157, 


188,2,129 

: rem 

2 

1 060 

DATAI 98,252,208,21 0,76,1 57,1 92,41 ,1 27,1 33 

,252,222,0, 


208,189,0,161 

: rem 

1 68 
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1 070 DATA208,201 ,255,208,1 1 ,1 73,1 6,208,57,1 72,1 92,1 41 ,.16, 
208,169,255,186 :rem 23 

1 080 DATA221 ,208,2,176,20,1 38,74,1 76,8,1 73,16,208,57,164, 
192,208,249 :rem 89 

1 090 DATA8,1 89,1 88,2,41 ,1 27,1 57,1 88,2,198,252,208,206,232 
,224,1 6,1 90 : rem 93 

1100 DATA208,1 31 ,96,234,1,2,4,8,16,32,64,128,254,253,251 , 
247,1 37 : rem 120 

1110 DATA239,223,191,127,13,13,251,255,0,0,255,255,0,0,25 
5,255,28 : rem 157 
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04 OGG/ E MUSICA PER TUTTI 


nuovidea 








A TUTTA MUSICA CON 



Musica dal calcolatore, 
musica vera, musica tua! 

Con l’unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 

UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi (12 preregistrati), disporrai di 
ben 28 timbri strumentali 
(14 preregistrati), potrai correggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


Volume generale 

Volume per la parte 
orchestrale 

Volume per la batteria 
elettronica 

Spia luminosa 
di corretta 
alimentazione 


MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, 
c mito qui: il Commodore 64. il SOUND BUGGY. 
la minilastiera SIEL. il software. 


IMPORTANTE 

SOUND BUGGY 
è acquistabile 
esclusivamente tramite il 
coupon privilegiato di 
questa offerta. Ritaglialo 
e spediscilo subito. 
Usufruirai del prezzo 
bloccato fino al 
31.12.1985. 
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Questa Cedola rappresenta l’unico 
modo di ordinare SOUND BUGGY, e 
riceverlo completo di tastierina e di 
programmi su disco e cassetta. 

Ritagliala e spediscila subito. 


CEDOLA PRIVILEGIATA DI ACQUISTO 
SOUND BUGGY 


Indicare con una X 
il □ che interesso 


ITI Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 


contrassegno completa 

di minitastiera, 
pacchetto software sia 
su disco che su cassetta, 
libretto istruzioni al 


SOUND BUGGY 
sarà protetto da 

Garanzia per 1 anno. 


Cj Sono interessato alla 



prezzo speciale di 

L. 185.000 (incluse 
© L. 27.650 IVA e L. 3.750 

di spese postali). 

È inteso che il mio 

unità periferica per C 64 
SOUND BUGGY e vi 
prego di volermi fornire 
informazioni più 
dettagliate. 

12 MESI DI GARANZIA 

Nome 

Coanome 


Indirizzo 

CAP 

1 nrnlità 


Doto 

Firma 


(per i minori occorre quella del genitore) 



















TUTTA LA MUSICALA COMANDO! 

SOUND BUGGY mette a tua disposizione strumenti, ritmi, tempi, accordi, arpeggi, effetti mixati. 

Segui a video le semplici istruzioni del suo sofisticatissimo software. 


Main Menu 

Massima semplicità d'impiego 
del software grazie alla 
standardizzazione dei 
comandi. Il Main Menu 
presenta il quadro 
complessivo delle funzioni 
musicali utilizzabili premendo 
i comandi indicati. 

Rhythm Menu 
Visualizza tutti i 24 ritmi e 
mostra come SOUND BUGGY 
li esegue alla batteria 
elettronica. La batteria è 
programmabile per: Boss 
Drum Igrancassa), Cymbal 
Short (piatto apertoI Cymbal 


Long (piatto chiuso!, Snare 
Drum (tamburo rullante! e Rim 
Shot (cerchio rullante). 

Solo Menu 

Elenca tutti i 28 timbri e 
visualizza i parametri con cui il 
sint SOUND BUGGY li 
sviluppa. 

Song Edit 

È il cuore del SOUND BUGGY 
e permette di dirigere 
l'“orchestra". Infatti consente 
di intervenire in tempo reale, 
modificando i parametri 
relativi o.- Solo, Rhythm, 
Accompaniment, Sequencer. 
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